IDC Common Handlers Times New Roman Times New Roman Times New Roman Times New Roman iuSjoNqyA Times New Roman Version C:\KEN\IDC\SYS133.TBK C:\KEN\IDC\COMM136.TBK rightbuttondoubleClick B"filescripts" rightbuttondoubleClick rightbuttondoubleClick filescripts Version Interactive Document Compiler Version 1.3601 Compiler :PHYSSIZE This is a System Book required by all books created with the IDC Compiler. A copy must reside in the same directory as any such book. It has no useful independent functionality. sysSuspendMessages buttonUp buttonUp Resolution Screen resolution is 800 x 600 filescripts ~(".",n) n & ".scr" filescripts buttonUp buttonUp filescripts File Scripts Screen resolution is 800 x 600816 -- Standard handlers 8compiled -- Note: Messages the actual 8must explicitly state setupWindow B"filescripts" path( & "compiler\utility.tbk" "Version" ~("\",f) filename f ~("\",f) Vi+1 filestem f tail(":",f) ~("\",f) > 0 \",f) ~(".",f) O c,s ~(c,s) setupBook 4visited,addressstack,usebookmarks ,pagewidth,pagedepth 4nsep,nend,anchorsshown,allowexit,screen -- prevents warning message re -- requires xvia Quit l-X etc. "VGA" sizePage 6.6 * 1440 -- are these ever used 4.8 * 1440 removeReaderMenus actionsmenu "&Help,Show &Links,&Notes,&Copy Text,& anchorstyle help createReaderMenu "&Actions", "Author" c"IDC" e"Change Exit Password" has been entry InformationFile scores loadScores Pages","&Contents,&Visited" "$Shared$" disable " stringData(" Bookmarks","&List marked ,&Mark ,&Unmark ,&Remove All" loadBookmarks zwe need ttwo lines every notes loadNotes "$Title$" setUpTitlePage B"Start" display linkDLL "tbkwin.dll" INT HorizontalDisplayRes() VerticalDisplayRes() 2es() unlinkDLL " "Screen resolution " && h && "x" && v "Resolution" h < 640 v <480 Report ,h,v, sizeWindow "SVGA" -sized h && v D -- on larger d,h,v,small "The " && h & "x" & v && "which Error m -- sizes ensure that no title bar /colour still fills 12960,8640 -- 9.0 x 6.0 12960,9040 -- 9.0 x 6.0? 9792,7200 -- 6.8 x 5.0 setting up (IDC error:" && p &&")" -- full VGA & no border -- -4, -24, 644, 484 -- -4, -4, 644, 484 -- -- 0, 0, 640, 480 -- centre 76, 56, 724, 544 -- -4,-4,804,604 -- Shows titlebar -4,-24,804,604 -- No s & "," & p &&")" -- s,640,480) s,800,600) s & "," & p &&")" h,v,wh,wv (h-wh)/2-4 (v-wv)/2-4 setupPage labelPage preserve 4markCopyText, -- sets up "" && && "needs" && & "." & CRLF & " " && &"." M $" V $" will enable following needed hiddenlinks S"ShowLinks" setanchors "boxed, -- Initialize initialize -- Send optional messages " && && " Xbuttons optionalbuttons l -- p&& property " && p && " fields optionalfields l -- " && p && " optionalgroups l -- qstrip( " && p && " recordfields optionalrecordfields l -- " && p && " -- Hide " && enquote2( ) && " " && ) && " -- Clear cleared " && ) && " --Preserve -- assume bexcept... " && LabelPage oneof( " (*)" B"OK" ,Edit, informationFile F-- already loaded 8) & s & ".INF" setData " ","notfound" readLine(f) ~("=",l) > 0 -- valid sysErrorNumber =565 F-- EOF " && f && "seems be invalid." checkToolBookError LF -- skip calling books :" & B"OK" -- assumes -> 0 question <> 0 -- Handlers 4idcData -- Controlled saveNotes saveScores saveBookmarks sysSuspendMessages "DOS" "user.exe" ExitWindows(DWORD, FindWindow( STRING) ShowWindow( 2INT) hWnd 90,"Program Manager") ~0,0) -- This also removes current 8was entered. F--Can't prompt on TitleText(a) Prompt "Returning " && -- signal WordCount(u) > 1 u -- just wmethod closing supply a exitPassword changeExitPassword newPassword IDCpassword "Old >-- wrong "New "Repeat >-- verification failed showHotWords sysHotWordsShown showNotes clearPrompt MarkThisPage ) Then UnmarkThisPage itemnumber( no longer ListMarkedPages pagelist RemoveAll -- History -- obsolete yp,identifier "$$" unique textOverFlow $" > 0 sysLockscreen $" > 0 8) < 2 advance $" > 0 /!$" Hseveral backgrounds "$I" filespec(p) + Switching " && "$$" "$A" (p) > 1 filearg(a) b && a Launching" && b && a = 559 "no such %" && b substpath(p,3) ( p,s ~(":",f) Vc+1 retreat F-- Is necessary have document. cannot use leave one." uplevel F-- Is should xhappen c-- Not a h < l sh -- firstpage /"$Common$" -- follows route -- returns "$$",l) $ i,l) \ i,l l ( 0 incData n,i value(n, setvalue(n, valueData n ~("=", eq > 0 eq-1 Veq+1 && "missing data n,d,v (v) > 1 & v & cj < ~("=", eq > 0 eq-1 n & "=" & v n & "=" & v sample s,n,e s > p loadData f &"trying oepn /" && f && "[" & r& "]" 32768 -- whole newFileName newtype 0*datapath") c.(b) & "." & p & "\" & f Hpopups -- Are ,required showPopup t drawdirect newFilename("BMK") <> 0 -- Blanks blanks o,d1,d2,t -- . recursively -- builds -- o processed -- d1,d2 q.delimiters -- t remaining yet unscanned ~(d1,t) Vbb+1 ~(d2, [System]" o+bb && bl bb+bl+2 (o+tb-1,d1,d2, blanknumber ,charlocation consists pairs numbers: && length along ,*point result <=c+s+1 -- Utilities & s & s && -- Traps u+there exists no called whenever a T$x%? leaveBook enterPage disable enable setupWindow leavePage setupPage changeExitPassword newPassword Report ShowLinks LabelPage setanchors Notes setupBook Prompt clearPrompt setUpTitlePage MarkThisPage UnmarkThisPage createReaderMenu ListMarkedPages RemoveAll Visited sizePage History removeReaderMenus pagelist Contents informationFile advance retreat uplevel sizeWindow follow incData Error setData enterBook loadData showPopup checkToolBookError loadBookmarks saveBookmarks initialize Z4eS' centre substpath oneof qstrip itemnumber filestem valueData stringData readLine value TitleText setvalue sample newFileName filespec blanks filename blanknumber enquote filearg enquote2 enterBook setupWindow filescripts compiler\utility.tbk Version reader compiled filename filestem setupBook gsizePage setupWindow removeReaderMenus &Help,Show &Links,&Notes,&Copy Text,&Quit anchorstyle italic,underline,bold createReaderMenu &Actions Author createReaderMenu &Actions Change Exit Password InformationFile scores loadScores createReaderMenu &Pages &Contents,&Visited Contents $Shared$ x%disable Contents bookmarks stringData createReaderMenu &Bookmarks &List marked pages,&Mark this page,&Unmark this page,&Remove All QBloadBookmarks notes loadNotes $Title$ setUpTitlePage buttonUp Start actionsmenu anchorsshown allowexit screen compiled pagewidth pagedepth visited addressstack usebookmarks setupWindow tbkwin.dll HorizontalDisplayRes VerticalDisplayRes HorizontalDisplayRes VerticalDisplayRes tbkwin.dll Screen resolution is Resolution #Report sizeWindow sizeWindow sizeWindow screen display Report The screen is which is too small for a VGA-sized display. Error small sizePage Error in setting up page (IDC error: sizeWindow Error in setting up window (IDC error: centre sizeToPage centre sizeToPage Error in setting up window (IDC error: centre enterPage setupPage ItlabelPage compiled leavePage preserve setupPage screen Error needs Screen is gsizePage sizeWindow gsizePage sizeWindow $Pages$ $Contents$ $Help$ x%disable CopyText x%disable Notes hiddenlinks enable ShowLinks anchorstyle invert setanchors anchorstyle boxed,invert x%disable ShowLinks initialize setup to this book optionalbuttons of this page optionalfields of this page optionalgroups qstrip of this page optionalrecordfields qstrip of this page hidden enquote2 of this background shown enquote2 of this background cleared clear text of field enquote of this background preserve hidden enquote2 markCopyText screen anchorsshown qstrip LabelPage Label oneof Label bookmarks setUpTitlePage Error createReaderMenu removeReaderMenus File,Edit,Text,Page,Help informationFile stringData filestem 45setData notfound 45setData readLine 45setData readLine Error seems to be invalid. 0checkToolBookError Error Error: Error Error addressstack checkToolBookError Error leaveBook addressstack disable enable idcData idcData idcData notes saveNotes scores saveScores vOsaveBookmarks stringData user.exe ExitWindows FindWindow ShowWindow Program Manager FindWindow ShowWindow ExitWindows $Title$ TitleText 'Prompt Returning to allowexit addressstack usebookmarks TitleText Title $Title$ 0checkToolBookError This is not the normal method of closing this book. You must supply a password. exitPassword allowexit compiled changeExitPassword newPassword newPassword IDCpassword ExitPassword Old Password New Password Repeat Password IDCpassword ExitPassword ShowLinks anchorstyle invert setanchors ShowLinks ShowLinks anchorstyle boxed ;IshowHotWords ShowLinks ShowLinks anchorsshown setanchors Notes showNotes Prompt Prompt clearPrompt Prompt MarkThisPage $Pages$ oneof 'Prompt This page is already marked. 'Prompt This page is now marked. ItLabelPage bookmarks UnmarkThisPage $Pages$ itemnumber 'Prompt This page is NOT marked. 'Prompt This page is no longer marked. ItLabelPage bookmarks ListMarkedPages gpagelist bookmarks RemoveAll ItLabelPage bookmarks Visited gpagelist visited History gpagelist pagelist $Pages$ $Title$ $Pages$ $Pages$ $Pages$ $Pages$ $Pages$ identifier Contents Contents $Shared$ $Contents$ $Contents$ $Contents$ $Contents$ $Contents$ \$advance $Shared$ $Help$ $Help$ $Help$ $Help$ $Help$ advance filespec TitleText 'Prompt Switching to notes saveNotes vOsaveBookmarks filearg filespec filespec 'Prompt Launching Error no such file as 0checkToolBookError clearPrompt oneof visited addressstack filespec substpath filearg substpath substpath stringData retreat You have just entered (or re-entered) this document. You cannot use this action to return to the previous document or to leave this one. uplevel You have just entered (or re-entered) this document. You cannot use this action to return to the previous document or to leave this one. level level \$advance $Common$ firstpage \$advance follow route stringData 45setData route \$advance oneof itemnumber itemnumber itemnumber incData value setvalue idcData setData setvalue idcData valueData value idcData stringData value idcData value Error missing in data value. setvalue sample pagelist itemnumber oneof sample loadData Error trying to oepn file $Shared$ newFileName datapath stringData filestem idcData newtype showPopup Popup Popup Popup Popup loadBookmarks newFilename bookmarks saveBookmarks newFilename bookmarks blanks Error closing delimiter for blank missing [System] blanks blanknumber charlocation blanks enquote enquote2 enquote initialize